﻿<!--#include file="const.inc"-->
<%
'====================================================================
' 感谢使用晴天3G智能建站系统..
' 作者:梁永强.QQ:766750857
' 官方网址:wap.qt3g.com
' 声明:软件版权归作者所有,没有经过作者本人同意不得非法破解和传播本程序
'====================================================================
%>
<%
if sid="Null" then
Response.Redirect "/login.asp?sid=" & sidd & "&url=/diy/Transfmp3.asp"
Response.end
end if
bitttt=qingtian.confff("bit")
bittt=conn.execute("select money from [qingtian_user] where sid='"&qingtian.Formatsid(sid)&"'")("money")
select case v
case "0"
we0="<br/>"
hr="-----------<br/>"
%>
<card title="在线火焰文字制作"><p align="<%=qingtian.px%>">
<%
case "1"
zi="<span style=""color:#FF5500"">"
we="<div class=""footer"">"
sou="<div class=""block4"">"
dao="<div class=""navi"">"
we0="</div>"
we1="</div>"
%>
<title>在线火焰文字制作</title>
</head>
<body>
<!--#include virtual="/css.inc"-->
<%

End Select
%>
<%=qingtian.qingsav("10086")%>
<%
on error resume next
Dim fs, f, f1, fc,cs,i,fsod,Filedel
i=0 
Filepath=Server.MapPath("/diy/Images/")
Set fs = CreateObject("Scripting.FileSystemObject") 
Set f = fs.GetFolder(Filepath)
Set fc = f.Files
For Each f1 in fc
i=i+1
Next
If i>30 Then
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(Filepath)
Set fc = f.Files
For Each f1 in fc
Filedel=Filepath&"/"&f1.name
set fsod = createobject("scripting.filesystemobject")
If (fsod.fileexists(Filedel)) Then
fsod.deletefile(Filedel)
End If
set fsod = Nothing
i=i+1
Next
End If
Response.Write(""&dao&"=在线火焰文字制作="&we0&""&we&"")
if Request.QueryString("act")=1 then
if session("uurl")<>"" then
Response.Write qingtian.touxian(session("uurl"))
else
Response.Write "设为头像失败!"
end if
session("uurl")=""
Response.Write "<br/>"
end if
Dim backurl,mo2,mob,ii,filename1,cc
filename1="Flame.asp"	'本文件名
cc=clng(request("cc"))
backurl=request("backurl")
cc=clng(request("cc"))
backurl=Replace(backurl,"@@","&")
If left(backurl,1)<>"/" Then backurl="/"&backurl
mo2=split(backurl,".")
mob=lcase(mo2(ubound(mo2)))	'字符变小写参数前加
ii="jpg|gif|bmp|jpeg|peg|png|jpge|mid|midi|mmf|amr|img|adp|m4a|mp3|aac|wav|wma|ogg|avi|mp4|3gp|wmv|rm|rmvb|dat|mpg|asf|umd|txt|chm|brm|prc|pdb|mdx|trc|sis|sisx|jar|jad|cab|mpkg|hme|ski|thm|uiq|nth|utz|mtf|sdt|tsk|nec|nes|gba|gb|gbc|gba|fba|md|sfc|smc|lrc|nol|rar|zip|7z|emz|pdf|pdg"
If instr(ii,mob)>0 Then
Response.redirect "http://www.czxiu.com"&backurl
Response.End
End If
%>
<%
text1=TRim(Request("text1"))
FontSize=clng(Request("FontSize"))
If text1<>"" and FontSize<>"" Then
If bittt<bitttt and qingtian.vip(qingtian.nid)<>"VIP会员" Then 
Response.Write "出错了！你的"&qingtian.bi&"不够哦！"
else
if FontSize>120 then
Response.Write "出错啦！！为减轻服务器压力，文字大小限制在120以内（30大小最佳），请重新输入！<br/>"
Else
FontZT=Request("FontZT")
Color1=Request("Color1")
Color2=Request("Color2")
Boolean1=Request("Boolean1")
Boolean1_post=Request("Boolean1_post")
Integer1=Request("Integer1")
If Color1="01" Then
If Color1_red="" Then Color1_red="0"
If Color1_green="" Then Color1_green="0"
If Color1_blue="" Then Color1_blue="139"
If Color1_hex="" Then Color1_hex="00008B"	'蓝黑
ElseIf Color1="02" Then
If Color1_red="" Then Color1_red="160"
If Color1_green="" Then Color1_green="32"
If Color1_blue="" Then Color1_blue="240"
If Color1_hex="" Then Color1_hex="A020F0"	'紫色
ElseIf Color1="03" Then
If Color1_red="" Then Color1_red="218"
If Color1_green="" Then Color1_green="112"
If Color1_blue="" Then Color1_blue="214"
If Color1_hex="" Then Color1_hex="DA70D6"	'兰花
ElseIf Color1="04" Then
If Color1_red="" Then Color1_red="238"
If Color1_green="" Then Color1_green="130"
If Color1_blue="" Then Color1_blue="238"
If Color1_hex="" Then Color1_hex="EE82EE"	'紫红
ElseIf Color1="05" Then
If Color1_red="" Then Color1_red="255"
If Color1_green="" Then Color1_green="0"
If Color1_blue="" Then Color1_blue="255"
If Color1_hex="" Then Color1_hex="FF00FF"	'品红
ElseIf Color1="06" Then
If Color1_red="" Then Color1_red="176"
If Color1_green="" Then Color1_green="48"
If Color1_blue="" Then Color1_blue="96"
If Color1_hex="" Then Color1_hex="B03060"	'栗色
ElseIf Color1="07" Then
If Color1_red="" Then Color1_red="255"
If Color1_green="" Then Color1_green="192"
If Color1_blue="" Then Color1_blue="203"
If Color1_hex="" Then Color1_hex="FFC0CB"	'粉红色
ElseIf Color1="08" Then
If Color1_red="" Then Color1_red="255"
If Color1_green="" Then Color1_green="0"
If Color1_blue="" Then Color1_blue="0"
If Color1_hex="" Then Color1_hex="FF0000"	'红色
ElseIf Color1="09" Then
If Color1_red="" Then Color1_red="255"
If Color1_green="" Then Color1_green="165"
If Color1_blue="" Then Color1_blue="0"
If Color1_hex="" Then Color1_hex="FFA500"	'橙黄
ElseIf Color1="10" Then
If Color1_red="" Then Color1_red="165"
If Color1_green="" Then Color1_green="42"
If Color1_blue="" Then Color1_blue="42"
If Color1_hex="" Then Color1_hex="A52A2A"	'棕色
ElseIf Color1="11" Then
If Color1_red="" Then Color1_red="210"
If Color1_green="" Then Color1_green="105"
If Color1_blue="" Then Color1_blue="30"
If Color1_hex="" Then Color1_hex="D2691E"	'巧克力
ElseIf Color1="12" Then
If Color1_red="" Then Color1_red="210"
If Color1_green="" Then Color1_green="180"
If Color1_blue="" Then Color1_blue="140"
If Color1_hex="" Then Color1_hex="D2B48C"	'黄褐色
ElseIf Color1="13" Then
If Color1_red="" Then Color1_red="245"
If Color1_green="" Then Color1_green="222"
If Color1_blue="" Then Color1_blue="179"
If Color1_hex="" Then Color1_hex="F5DEB3"	'麦黄
ElseIf Color1="14" Then
If Color1_red="" Then Color1_red="245"
If Color1_green="" Then Color1_green="245"
If Color1_blue="" Then Color1_blue="220"
If Color1_hex="" Then Color1_hex="F5F5DC"	'米色
ElseIf Color1="15" Then
If Color1_red="" Then Color1_red="255"
If Color1_green="" Then Color1_green="215"
If Color1_blue="" Then Color1_blue="0"
If Color1_hex="" Then Color1_hex="FFD700"	'金黄
ElseIf Color1="16" Then
If Color1_red="" Then Color1_red="255"
If Color1_green="" Then Color1_green="255"
If Color1_blue="" Then Color1_blue="0"
If Color1_hex="" Then Color1_hex="FFFF00"	'黄色
ElseIf Color1="17" Then
If Color1_red="" Then Color1_red="127"
If Color1_green="" Then Color1_green="255"
If Color1_blue="" Then Color1_blue="0"
If Color1_hex="" Then Color1_hex="7FFF00"	'黄绿色
ElseIf Color1="18" Then
If Color1_red="" Then Color1_red="0"
If Color1_green="" Then Color1_green="255"
If Color1_blue="" Then Color1_blue="0"
If Color1_hex="" Then Color1_hex="00FF00"	'绿色
ElseIf Color1="19" Then
If Color1_red="" Then Color1_red="0"
If Color1_green="" Then Color1_green="100"
If Color1_blue="" Then Color1_blue="0"
If Color1_hex="" Then Color1_hex="006400"	'深绿色
ElseIf Color1="20" Then
If Color1_red="" Then Color1_red="0"
If Color1_green="" Then Color1_green="255"
If Color1_blue="" Then Color1_blue="255"
If Color1_hex="" Then Color1_hex="00FFFF"	'青色
ElseIf Color1="21" Then
If Color1_red="" Then Color1_red="0"
If Color1_green="" Then Color1_green="0"
If Color1_blue="" Then Color1_blue="255"
If Color1_hex="" Then Color1_hex="0000FF"	'蓝色
ElseIf Color1="22" Then
If Color1_red="" Then Color1_red="190"
If Color1_green="" Then Color1_green="190"
If Color1_blue="" Then Color1_blue="190"
If Color1_hex="" Then Color1_hex="BEBEBE"	'灰色
ElseIf Color1="23" Then
If Color1_red="" Then Color1_red="0"
If Color1_green="" Then Color1_green="0"
If Color1_blue="" Then Color1_blue="0"
If Color1_hex="" Then Color1_hex="000000"	'黑色
ElseIf Color1="24" Then
If Color1_red="" Then Color1_red="255"
If Color1_green="" Then Color1_green="250"
If Color1_blue="" Then Color1_blue="250"
If Color1_hex="" Then Color1_hex="FFFAFA"	'雪白
ElseIf Color1="25" Then
If Color1_red="" Then Color1_red="240"
If Color1_green="" Then Color1_green="255"
If Color1_blue="" Then Color1_blue="255"
If Color1_hex="" Then Color1_hex="F0FFFF"	'蔚蓝色
ElseIf Color1="26" Then
If Color1_red="" Then Color1_red="255"
If Color1_green="" Then Color1_green="255"
If Color1_blue="" Then Color1_blue="255"
If Color1_hex="" Then Color1_hex="FFFFFF"	'白色
End If
'--------------------------------------
If Color2="01" Then
If BackgroundColor_red="" Then BackgroundColor_red="0"
If BackgroundColor_green="" Then BackgroundColor_green="0"
If BackgroundColor_blue="" Then BackgroundColor_blue="139"
If BackgroundColor_hex="" Then BackgroundColor_hex="00008B"	'蓝黑
ElseIf Color2="02" Then
If BackgroundColor_red="" Then BackgroundColor_red="160"
If BackgroundColor_green="" Then BackgroundColor_green="32"
If BackgroundColor_blue="" Then BackgroundColor_blue="240"
If BackgroundColor_hex="" Then BackgroundColor_hex="A020F0"	'紫色
ElseIf Color2="03" Then
If BackgroundColor_red="" Then BackgroundColor_red="218"
If BackgroundColor_green="" Then BackgroundColor_green="112"
If BackgroundColor_blue="" Then BackgroundColor_blue="214"
If BackgroundColor_hex="" Then BackgroundColor_hex="DA70D6"	'兰花
ElseIf Color2="04" Then
If BackgroundColor_red="" Then BackgroundColor_red="238"
If BackgroundColor_green="" Then BackgroundColor_green="130"
If BackgroundColor_blue="" Then BackgroundColor_blue="238"
If BackgroundColor_hex="" Then BackgroundColor_hex="EE82EE"	'紫红
ElseIf Color2="05" Then
If BackgroundColor_red="" Then BackgroundColor_red="255"
If BackgroundColor_green="" Then BackgroundColor_green="0"
If BackgroundColor_blue="" Then BackgroundColor_blue="255"
If BackgroundColor_hex="" Then BackgroundColor_hex="FF00FF"	'品红
ElseIf Color2="06" Then
If BackgroundColor_red="" Then BackgroundColor_red="176"
If BackgroundColor_green="" Then BackgroundColor_green="48"
If BackgroundColor_blue="" Then BackgroundColor_blue="96"
If BackgroundColor_hex="" Then BackgroundColor_hex="B03060"	'栗色
ElseIf Color2="07" Then
If BackgroundColor_red="" Then BackgroundColor_red="255"
If BackgroundColor_green="" Then BackgroundColor_green="192"
If BackgroundColor_blue="" Then BackgroundColor_blue="203"
If BackgroundColor_hex="" Then BackgroundColor_hex="FFC0CB"	'粉红色
ElseIf Color2="08" Then
If BackgroundColor_red="" Then BackgroundColor_red="255"
If BackgroundColor_green="" Then BackgroundColor_green="0"
If BackgroundColor_blue="" Then BackgroundColor_blue="0"
If BackgroundColor_hex="" Then BackgroundColor_hex="FF0000"	'红色
ElseIf Color2="09" Then
If BackgroundColor_red="" Then BackgroundColor_red="255"
If BackgroundColor_green="" Then BackgroundColor_green="165"
If BackgroundColor_blue="" Then BackgroundColor_blue="0"
If BackgroundColor_hex="" Then BackgroundColor_hex="FFA500"	'橙黄
ElseIf Color2="10" Then
If BackgroundColor_red="" Then BackgroundColor_red="165"
If BackgroundColor_green="" Then BackgroundColor_green="42"
If BackgroundColor_blue="" Then BackgroundColor_blue="42"
If BackgroundColor_hex="" Then BackgroundColor_hex="A52A2A"	'棕色
ElseIf Color2="11" Then
If BackgroundColor_red="" Then BackgroundColor_red="210"
If BackgroundColor_green="" Then BackgroundColor_green="105"
If BackgroundColor_blue="" Then BackgroundColor_blue="30"
If BackgroundColor_hex="" Then BackgroundColor_hex="D2691E"	'巧克力
ElseIf Color2="12" Then
If BackgroundColor_red="" Then BackgroundColor_red="210"
If BackgroundColor_green="" Then BackgroundColor_green="180"
If BackgroundColor_blue="" Then BackgroundColor_blue="140"
If BackgroundColor_hex="" Then BackgroundColor_hex="D2B48C"	'黄褐色
ElseIf Color2="13" Then
If BackgroundColor_red="" Then BackgroundColor_red="245"
If BackgroundColor_green="" Then BackgroundColor_green="222"
If BackgroundColor_blue="" Then BackgroundColor_blue="179"
If BackgroundColor_hex="" Then BackgroundColor_hex="F5DEB3"	'麦黄
ElseIf Color2="14" Then
If BackgroundColor_red="" Then BackgroundColor_red="245"
If BackgroundColor_green="" Then BackgroundColor_green="245"
If BackgroundColor_blue="" Then BackgroundColor_blue="220"
If BackgroundColor_hex="" Then BackgroundColor_hex="F5F5DC"	'米色
ElseIf Color2="15" Then
If BackgroundColor_red="" Then BackgroundColor_red="255"
If BackgroundColor_green="" Then BackgroundColor_green="215"
If BackgroundColor_blue="" Then BackgroundColor_blue="0"
If BackgroundColor_hex="" Then BackgroundColor_hex="FFD700"	'金黄
ElseIf Color2="16" Then
If BackgroundColor_red="" Then BackgroundColor_red="255"
If BackgroundColor_green="" Then BackgroundColor_green="255"
If BackgroundColor_blue="" Then BackgroundColor_blue="0"
If BackgroundColor_hex="" Then BackgroundColor_hex="FFFF00"	'黄色
ElseIf Color2="17" Then
If BackgroundColor_red="" Then BackgroundColor_red="127"
If BackgroundColor_green="" Then BackgroundColor_green="255"
If BackgroundColor_blue="" Then BackgroundColor_blue="0"
If BackgroundColor_hex="" Then BackgroundColor_hex="7FFF00"	'黄绿色
ElseIf Color2="18" Then
If BackgroundColor_red="" Then BackgroundColor_red="0"
If BackgroundColor_green="" Then BackgroundColor_green="255"
If BackgroundColor_blue="" Then BackgroundColor_blue="0"
If BackgroundColor_hex="" Then BackgroundColor_hex="00FF00"	'绿色
ElseIf Color2="19" Then
If BackgroundColor_red="" Then BackgroundColor_red="0"
If BackgroundColor_green="" Then BackgroundColor_green="100"
If BackgroundColor_blue="" Then BackgroundColor_blue="0"
If BackgroundColor_hex="" Then BackgroundColor_hex="006400"	'深绿色
ElseIf Color2="20" Then
If BackgroundColor_red="" Then BackgroundColor_red="0"
If BackgroundColor_green="" Then BackgroundColor_green="255"
If BackgroundColor_blue="" Then BackgroundColor_blue="255"
If BackgroundColor_hex="" Then BackgroundColor_hex="00FFFF"	'青色
ElseIf Color2="21" Then
If BackgroundColor_red="" Then BackgroundColor_red="0"
If BackgroundColor_green="" Then BackgroundColor_green="0"
If BackgroundColor_blue="" Then BackgroundColor_blue="255"
If BackgroundColor_hex="" Then BackgroundColor_hex="0000FF"	'蓝色
ElseIf Color2="22" Then
If BackgroundColor_red="" Then BackgroundColor_red="190"
If BackgroundColor_green="" Then BackgroundColor_green="190"
If BackgroundColor_blue="" Then BackgroundColor_blue="190"
If BackgroundColor_hex="" Then BackgroundColor_hex="BEBEBE"	'灰色
ElseIf Color2="23" Then
If BackgroundColor_red="" Then BackgroundColor_red="0"
If BackgroundColor_green="" Then BackgroundColor_green="0"
If BackgroundColor_blue="" Then BackgroundColor_blue="0"
If BackgroundColor_hex="" Then BackgroundColor_hex="000000"	'黑色
ElseIf Color2="24" Then
If BackgroundColor_red="" Then BackgroundColor_red="255"
If BackgroundColor_green="" Then BackgroundColor_green="250"
If BackgroundColor_blue="" Then BackgroundColor_blue="250"
If BackgroundColor_hex="" Then BackgroundColor_hex="FFFAFA"	'雪白
ElseIf Color2="25" Then
If BackgroundColor_red="" Then BackgroundColor_red="240"
If BackgroundColor_green="" Then BackgroundColor_green="255"
If BackgroundColor_blue="" Then BackgroundColor_blue="255"
If BackgroundColor_hex="" Then BackgroundColor_hex="F0FFFF"	'蔚蓝色
ElseIf Color2="26" Then
If BackgroundColor_red="" Then BackgroundColor_red="255"
If BackgroundColor_green="" Then BackgroundColor_green="255"
If BackgroundColor_blue="" Then BackgroundColor_blue="255"
If BackgroundColor_hex="" Then BackgroundColor_hex="FFFFFF"	'白色
End If
t_sks=1200
t_text=Application(filename1 & sid & curl & text1 & id1)
If t_text="" or DateDiff("s",t_text,now())>t_sks Then		'缓存为空时，读取远程数据
Url="http://zh-cn.cooltext.com/Logo-Design?LogoID=4&Font=" & FontZT & "&Text=" & server.urlencode(Text1) & "&FontSize=" & FontSize & "&Color1_red=" & Color1_red & "&Color1_green=" & Color1_green & "&Color1_blue=" & Color1_blue & "&Color1_hex=&Integer1=" & Integer1 & "&Boolean1=on&BackgroundColor_red=" & BackgroundColor_red & "&BackgroundColor_green=" & BackgroundColor_green & "&BackgroundColor_blue=" & BackgroundColor_blue & "&BackgroundColor_hex=" & BackgroundColor_hex & "&IsRender=true&cmHex=FFFFFF&cmHue=0"
Else
Url="http://zh-cn.cooltext.com/Logo-Design?LogoID=4&Font=" & FontZT & "&Text=" & server.urlencode(Text1) & "&FontSize=" & FontSize & "&Color1_red=" & Color1_red & "&Color1_green=" & Color1_green & "&Color1_blue=" & Color1_blue & "&Color1_hex=&Integer1=" & Integer1 & "&Boolean1_post=1&BackgroundColor_red=" & BackgroundColor_red & "&BackgroundColor_green=" & BackgroundColor_green & "&BackgroundColor_blue=" & BackgroundColor_blue & "&BackgroundColor_hex=" & BackgroundColor_hex & "&IsRender=true&cmHex=FFFFFF&cmHue=0"
End If
wstr=qingtian.getHTTPPage2(url,Data)
start=Instr(wstr,"<a href=""http://cooltext.com/Render-Result")
over=Instr(wstr,"English</a>")+11
body=mid(wstr,start,over-start)
'以下替换内容
body = replace(body,Chr(10),"")
body = replace(body,Chr(13),"")
body = replace(body,"""","'")
body = replace(body,vbndwline,"")
body = replace(body,vbLf,"")
body = replace(body,vbCr,"")
'-------------------------------------
	Set re=new RegExp
	re.IgnoreCase =true
	re.Global=True
	re.pattern=""
	body= re.Replace(body,"")
	re.pattern="<a href=([\s\S]+?)RenderID=(\d+?)'([\s\S]+?)</a>"
	RenderID= re.Replace(body,"$2")
	set re=Nothing

'-------------------------------------
If RenderID<>"" Then
Url="http://zh-cn.cooltext.com/Render-Graphic?RenderID=" & RenderID & ""	'传送过去的内容
wstr=qingtian.getHTTPPage2(url,Data)
start=Instr(wstr,"<p>")+3
over=Instr(wstr,"下载图片</a>")+8
body=mid(wstr,start,over-start)
'以下替换内容
body = replace(body,Chr(10),"")
body = replace(body,Chr(13),"")
body = replace(body,"""","'")
body = replace(body,vbndwline,"")
body = replace(body,vbLf,"")
body = replace(body,vbCr,"")
'-------------------------------------
	Set re=new RegExp
	re.IgnoreCase =true
	re.Global=True
	re.pattern="<a href='(.+?)'><img src='(.+?)'[\s\S]+?下载图片</a>"
	body= re.Replace(body,"$2")
	re.pattern="<img src='(.+?)'\s*>.+?</a>"
	body= re.Replace(body,"$1")
	re.pattern="<img src='(.+?)'.+?</a>"
	body= re.Replace(body,"$1")
	set re=Nothing
'-------------------------------------
If len(body)<1 Then
Response.Write "对不起，由于网络原因数据获取失败，请稍候再试！<br/>"
Else
'Application(filename1 & sid & curl & name & id)=body
'Response.Write body
'End If
'Else '直接输出缓存
'Response.Write t_text
'End If
'Response.Write "<br/>"
'End If
'End If
%>
<%
RemoteFileUrl ="" & body 
FileExt = right(RemoteFileUrl,4) 
randomize
ranNum = int(9*10^3*rnd)+10^3
dtNow = Now()
FileName = year(date) & month(date) & day(date) & "0" & minute(now()) & second(now()) & "_" & Replace(Request.ServerVariables("Server_NAME"),".",".") & FileExt
LocalFileName = "/diy/images/" 
If right(LocalFileName,1) <> "/" Then LocalFileName = LocalFileName & "/"
SaveFile = server.mappath(LocalFileName & FileName)
SaveRemoteFile SaveFile,RemoteFileUrl 
saveimg=LocalFileName & FileName 
uurl=saveimg
session("uurl")=uurl
Dim filetest,filesize
set filetest=server.CreateObject("Scripting.FileSystemObject")
filesize=filetest.GetFile(server.MapPath(uurl)).size
If filesize<>"" and filesize>0 Then
if qingtian.vip(qingtian.nid)="VIP会员" then
qingtian.addong("在[url=/diy/Flame.asp?sid=[sid]]在线火焰文字制作[/url]制作了签名")
Response.Write "签名制作成功，文件大小为" & FormatNumber(filesize/1024,1) & "KB<br/>"
Response.Write "<img src='" & uurl & "' alt='Load...'/><br/>"
Response.Write "<a href='" & uurl & "'>免费下载</a>.<a href='" & filename1 & "?act=1&amp;sid=" & sidd & "'>设为头像</a><br/>"
else
qingtian.payy("-"&bitttt)
qingtian.addong("在[url=/diy/Flame.asp?sid=[sid]]在线火焰文字制作[/url]制作了签名")
Response.Write "签名制作成功，文件大小为" & FormatNumber(filesize/1024,1) & "KB<br/>系统自动扣除你"&bitttt&""&qingtian.bi&"<br/>你现在的"&qingtian.bi&":"&bittt&"<br/>"
Response.Write "<img src='" & uurl & "' alt='Load...'/><br/>"
Response.Write "<a href='" & uurl & "'>免费下载</a>.<a href='" & filename1 & "?act=1&amp;sid=" & sidd & "'>设为头像</a><br/>"
end if
Else
Response.Write "对不起，由于网络原因图片获取失败，请稍候再试！<br/>"
End If
set filesize=nothing
set filetest=nothing
End If
End If
End If
End If
End If
%>
<%=we1%><%=hr%><%=sou%>注意:<%=zi%>普通会员每次制作系统自动扣除<%=bitttt%><%=qingtian.bi%>(VIP会员免费制作)<%=zi0%><%=we0%>
<%
        if v=1 then
	%>
        <form action="<%=filename1%>?sid=<%=sidd%>" method="post">
<%=we%>
输入文字<br/>
<textarea name="text1" rows="3"/></textarea><br/>
        <%
        else
	%>
输入文字<br/>
<input name="text1" type="text" value=""/><br/>
        <%
        end if
        %>
字体选择<%if len(FontZT)<>0 then%>
<select name="FontZT" value="<%=FontZT%>">
<%else%>
<select name="FontZT" value="">
<%end if%>
<option value="">默认字体</option>
<option value="11092">仿宋繁</option>
<option value="11126">仿宋體一標準</option>
<option value="11096">勘亭流繁</option>
<option value="11122">新宋体</option>
<option value="11130">新潮體一波浪</option>
<option value="11118">明體 TSC FMing</option>
<option value="11146">明體注音</option>
<option value="11072">明體破音</option>
<option value="11074">明體繁</option>
<option value="11070">楷體注音</option>
<option value="11138">標楷體一空心</option>
<option value="11134">波卡體一空陰</option>
<option value="11144">海報體一半天水</option>
<option value="11084">特圓體繁</option>
<option value="11132">特明體一標準</option>
<option value="11078">特明體繁</option>
<option value="11088">特黑體繁</option>
<option value="11094">空疊圓繁</option>
<option value="11142">粗圓體一雙空</option>
<option value="11076">粗明體繁</option>
<option value="11110">粗楷体简</option>
<option value="11128">粗鋼體一標準</option>
<option value="11140">粗黑體一實陰</option>
<option value="11082">細圓體繁</option>
<option value="11068">細明體</option>
<option value="11124">細明體繁</option>
<option value="11086">細黑體繁</option>
<option value="11136">綜藝體一雙空陰</option>
<option value="11098">綜藝體繁</option>
<option value="11116">细新宋简</option>
<option value="11102">行書繁</option>
<option value="11080">超明體繁</option>
<option value="11106">超黑體俏皮動物</option>
<option value="11104">酷儷海報</option>
<option value="11148">酷正海報</option>
<option value="11108">鋼筆行楷繁</option>
<option value="11090">隸書繁</option>
<option value="11100">顏楷體繁</option>
<option value="11112">魏碑简</option>
<option value="11120">黑体 Sim Hei</option>
</select><br/>
文字大小
<input emptyok="true" type="text" name="FontSize" format="*N" size="6" value="50" maxlength="2"/><br/>
文字颜色<%if len(Color1)<>0 then%>
<select name="Color1" value="<%=Color1%>">
<%else%>
<select name="Color1" value="08">
<%end if%>
<option value="01">蓝黑</option>
<option value="02">紫色</option>
<option value="03">兰花</option>
<option value="04">紫红</option>
<option value="05">品红</option>
<option value="06">栗色</option>
<option value="07">粉红色</option>
<option value="08">红色</option>
<option value="09">橙黄</option>
<option value="10">棕色</option>
<option value="11">巧克力</option>
<option value="12">黄褐色</option>
<option value="13">麦黄色</option>
<option value="14">米色</option>
<option value="15">金黄</option>
<option value="16">黄色</option>
<option value="17">黄绿色</option>
<option value="18">绿色</option>
<option value="19">深绿色</option>
<option value="20">青色</option>
<option value="21">蓝色</option>
<option value="22">灰色</option>
<option value="23">黑色</option>
<option value="24">雪白</option>
<option value="25">蔚蓝色</option>
<option value="26">白色</option>
</select><br/>
背景透明<%if len(Boolean1)<>0 then%>
<select name="Boolean1" value="<%=Boolean1%>">
<%else%>
<select name="Boolean1" value="1">
<%end if%>
<option value="1">透明</option>
<option value="0">染色</option>
</select><br/>
背景颜色<%if len(Color2)<>0 then%>
<select name="Color2" value="<%=Color2%>">
<%else%>
<select name="Color2" value="26">
<%end if%>
<option value="01">蓝黑</option>
<option value="02">紫色</option>
<option value="03">兰花</option>
<option value="04">紫红</option>
<option value="05">品红</option>
<option value="06">栗色</option>
<option value="07">粉红色</option>
<option value="08">红色</option>
<option value="09">橙黄</option>
<option value="10">棕色</option>
<option value="11">巧克力</option>
<option value="12">黄褐色</option>
<option value="13">麦黄色</option>
<option value="14">米色</option>
<option value="15">金黄</option>
<option value="16">黄色</option>
<option value="17">黄绿色</option>
<option value="18">绿色</option>
<option value="19">深绿色</option>
<option value="20">青色</option>
<option value="21">蓝色</option>
<option value="22">灰色</option>
<option value="23">黑色</option>
<option value="24">雪白</option>
<option value="25">蔚蓝色</option>
<option value="26">白色</option>
</select><br/>
<!--(背景颜色在染色的情况下有效)<br/-->
火焰角度<%if len(Integer1)<>0 then%>
<select name="Integer1" value="<%=Integer1%>">
<%else%>
<select name="Integer1" value="15">
<%end if%>
<option value="0">0</option>
<option value="5">5</option>
<option value="10">10</option>
<option value="15">15</option>
<option value="20">20</option>
<option value="25">25</option>
<option value="30">30</option>
<option value="35">35</option>
<option value="40">40</option>
<option value="45">45</option>
<option value="50">50</option>
<option value="55">55</option>
<option value="60">60</option>
<option value="65">65</option>
<option value="70">70</option>
<option value="75">75</option>
<option value="80">80</option>
<option value="85">85</option>
<option value="90">90</option>
<option value="95">95</option>
<option value="100">100</option>
<option value="105">105</option>
<option value="110">110</option>
<option value="115">115</option>
<option value="120">120</option>
<option value="125">125</option>
<option value="130">130</option>
<option value="135">135</option>
<option value="140">140</option>
<option value="145">145</option>
<option value="150">150</option>
<option value="155">155</option>
<option value="160">160</option>
<option value="165">165</option>
<option value="170">170</option>
<option value="175">175</option>
<option value="180">180</option>
<option value="185">185</option>
<option value="190">190</option>
<option value="195">195</option>
<option value="200">200</option>
<option value="205">205</option>
<option value="210">210</option>
<option value="215">215</option>
<option value="220">220</option>
<option value="225">225</option>
<option value="230">230</option>
<option value="235">235</option>
<option value="240">240</option>
<option value="245">245</option>
<option value="250">250</option>
<option value="255">255</option>
<option value="260">260</option>
<option value="265">265</option>
<option value="270">270</option>
<option value="275">275</option>
<option value="280">280</option>
<option value="285">285</option>
<option value="290">290</option>
<option value="295">295</option>
<option value="300">300</option>
<option value="305">305</option>
<option value="310">310</option>
<option value="315">315</option>
<option value="320">320</option>
<option value="325">325</option>
<option value="330">330</option>
<option value="335">335</option>
<option value="340">340</option>
<option value="345">345</option>
<option value="350">350</option>
<option value="355">355</option>
<option value="360">360</option>
</select><br/>
        <%
        if v=0 then
Response.Write "<anchor title=""submit"">提交制作<go href=""" & filename1 & "?sid=" & sidd & """ method=""post"">"
%>
<postfield name="text1" value="$(text1)"/>
<postfield name="FontZT" value="$(FontZT)"/>
<postfield name="FontSize" value="$(FontSize)"/>
<postfield name="Color1" value="$(Color1)"/>
<postfield name="Color2" value="$(Color2)"/>
<postfield name="Integer1" value="$(Integer1)"/>
<postfield name="Boolean1" value="$(Boolean1)"/>
</go>
</anchor><br/>
        <%
        else
	%><%=we1%>
        <input type="submit" value="提交制作"/>
        </form><br/>
	<%
	end if
	%>
<%=we%><%=hr%>
快告诉你的朋友来这里玩玩吧,古话说的好,独乐乐不如众乐乐.<%=we0%>
<%=sou%><a href='index.asp?sid=<%=sidd%>'>返回制作首页</a><%=we0%>
<%
End function
Sub SaveRemoteFile(LocalFileName,RemoteFileUrl)
Dim Ads,Retrieval,GetRemoteData
Set Retrieval = Server.CreateObject("Microsoft.XMLHTTP")
With Retrieval
.Open "Get", RemoteFileUrl, False, "", ""
.Send
GetRemoteData = .ResponseBody
End With
Set Retrieval = Nothing
Set Ads = Server.CreateObject("Adodb.Stream")
With Ads
.Type = 1
.Open
.Write GetRemoteData
.SaveToFile LocalFileName,2
.Cancel()
.Close()
End With
Set Ads=nothing
End sub
%>
